home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / comms / other / dwarfx-tng / dwarfx / dwarftalk.amirx < prev    next >
Text File  |  1999-04-19  |  2KB  |  18 lines
  1. /*
  2. \\ |DWaRFx-TNg| - DWaRFTALK.AmIRX v1.3
  3. //              - By Gareth Murfin
  4. \\
  5. // 'Speaks' all text from AmIRC to you using 'Kryten's voice.
  6. \\
  7. // To run do /DwTALK
  8. \\        or /Rx Rexx/DWaRFx/DWaRFTALK.AmIRX
  9. //
  10. \\ Speaks PrivMsg different speeds for recognition
  11. //
  12. \\ responds to -p<60-200> -s<40-200> -m -f -r -n
  13. //             |           |          |  |  |  |
  14. \\             Pitch      Speed     Male |  |  Natural
  15. //                                   Female Robotic
  16. \\           
  17. */
  18. ;parse arg reason;options results;dfxecho='p='d2c(27)'b«DWaRFTaLK» ';evnum=Substr(Address(),Pos('.',Address()));Call Setclip('DFxTIME'evnum,Time());dfxname=d2c(2)'|DWaRFx-TNG|'d2c(2);'echo 'dfxecho'« 'dfxname' Kryton Speech script Started »';'echo 'dfxecho'« Message yourself and say DIEKRYTEN to quit the script »';'say 'dfxname' Kryten speech innitiated, take care not to wear out Krytens voice box with ascii art! :-)';DO forever;drop comm;drop dest;drop prefix;drop rest;'getline';comm=line.command;dest=line.dest;rest=line.rest;prefix=line.prefix;getmynick;mynick=result;if comm="PRIVMSG" THEN;DO;IF dest=mynick THEN speed=150;else speed=200;if UPPER(rest)=":DIEKRYTEN" then leave;ADDRESS command 'say -r -s'speed' -p128 'rest;END;END;'echo 'dfxecho'« 'dfxname' Kryten Speech script quit remotely »';'echo 'dfxecho'« Quit coded by Popular demand :-) »';nick=Word(Translate(prefix,' ','!'),1);If mynick~=nick Then 'say /me says - Oi! someone has just quit my DWaRFTaLK for me! - 'dfxname;Else 'say /me has quit DWaRFTaLK - 'dfxname;Exit